home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Utilities / Apple File Exchange / AppleFile Exchange Translator / ExampleTrans / Example.a < prev    next >
Text File  |  1989-04-13  |  1KB  |  53 lines
  1. ;
  2. ;_____________________________________________________________________
  3. ;
  4. ;    File: Example.a
  5. ;
  6. ;        Copyright 1986,1987 by Apple Computer, Inc.  All Rights Reserved.
  7. ;_____________________________________________________________________
  8. ;
  9. ;    EXAMPLE TRANSLATION ROUTINE HEADER FOR APPLE FILE EXCHANGE
  10. ;
  11. ;        Written by Karl B. Young
  12. ;
  13. ;_____________________________________________________________________
  14. ;
  15. ;    Revision History
  16. ;        
  17. ;        16-Jul-87    1.0A1    KBY        New today
  18. ;
  19. ;_____________________________________________________________________
  20. ;
  21. ;    The file provides the required header for a translator.
  22. ;
  23. ;_____________________________________________________________________
  24. ;
  25.  
  26.         PRINT            OFF
  27.         INCLUDE         'Traps.a'
  28.         INCLUDE         'ToolEqu.a'
  29.         INCLUDE         'QuickEqu.a'
  30.         INCLUDE         'SysEqu.a'
  31.         INCLUDE            'SysErr.a'
  32.         PRINT            ON
  33.         
  34.     MAIN
  35.     IMPORT    TranStr                    ; this is the procedure name of the Pascal code
  36.     
  37. ;_______________________________
  38. ;
  39. ;    HEADER
  40. ;
  41. ;_______________________________
  42.     STRING    ASIS
  43.     jmp        TranStr                    ; branch to Pascal Code
  44.     dc.l    'tran'                    ; signature
  45.     dc.w    4000                    ; resource number (decimal)
  46.     dc.w    1                        ; my version number
  47.     STRING    PASCAL
  48.     dc.w    '1.0A1'                 ; ASCII version of version
  49.     dc.l    $0000FFFF                ; Indicates we support all calls
  50.     dc.l    0                        ; Reserved
  51.  
  52.     ENDMAIN
  53.     end